# 10jun11abu
# (c) Software Lab. Alexander Burger

### port listen connect ###
(test '(a b c)
   (let P (port 0 "ListenPort")
      (if (fork)
         (prog1
            (in (listen P) (rd))
            (close P) )
         (close P)
         (wait 400)
         (and (connect "localhost" "ListenPort") (out @ (pr '(a b c))))
         (bye) ) ) )


### udp ###
(test '(a b c)
   (let P (port T 0 "UdpPort")
      (if (fork)
         (udp P)
         (close P)
         (wait 400)
         (udp "localhost" "UdpPort" '(a b c))
         (bye) ) ) )

# vi:et:ts=3:sw=3
